home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / DTS Sample Code / Macintosh Sample Code / SC.020.Transformer / MTransformer.p next >
Encoding:
Text File  |  1989-09-30  |  1.6 KB  |  73 lines  |  [TEXT/MPS ]
  1. {[j=20/57/1$]}
  2. {[f-]}
  3. {------------------------------------------------------------------------------
  4. #
  5. #    Apple Macintosh Developer Technical Support
  6. #
  7. #    BitMap Transformer
  8. #
  9. #    MTransformer.p    -    Pascal Source
  10. #
  11. #    Copyright © 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Versions:
  15. #                1.0                         10/89
  16. #
  17. #    Components:
  18. #                MTransformer.p                October 1, 1989
  19. #                UTransformer.p                October 1, 1989
  20. #                UTransformer.inc1.p         October 1, 1989
  21. #                Transformer.c                October 1, 1989
  22. #                Transformer.r                October 1, 1989
  23. #                Transformer.MAMake            October 1, 1989
  24. #                ProjInit                    October 1, 1989
  25. #                The BitMap Transmogrifier    October 1, 1989
  26. #
  27. #    Requirements:
  28. #                MacApp® 2.0ß9                July 10, 1989
  29. #
  30. # "Transformers" is a sample program that demonstrates how to translate,
  31. # rotate, and scale bitmaps. It uses a MacApp shell to open file, open
  32. # windows, and handle menus, but the core routine is written in vanilla C.
  33. #
  34. ------------------------------------------------------------------------------}
  35. {[f+]}
  36.  
  37. PROGRAM Transformer;
  38.  
  39.   {$MC68020-}                                            { The main program must be universal code }
  40.   {$MC68881-}
  41.  
  42.     USES
  43.         { • MacApp }
  44.         UMacApp,
  45.  
  46.         { • Building Blocks }
  47.         UDialog,
  48.  
  49.         { • Implementation Use }
  50.         UTransformer;
  51.  
  52.     VAR
  53.  
  54.         gTransformerApplication: TTransformerApplication; { The application object }
  55.  
  56.     BEGIN
  57.  
  58.         InitToolBox;
  59.         IF ValidateConfiguration(gConfiguration) THEN    { Make sure we can run }
  60.             BEGIN
  61.             InitUMacApp(8);
  62.             InitUDialog;
  63.  
  64.             NEW(gTransformerApplication);
  65.             FailNIL(gTransformerApplication);
  66.             gTransformerApplication.ITransformerApplication(kMacPaintFileType);
  67.             gTransformerApplication.Run;
  68.  
  69.         END
  70.         ELSE
  71.             StdAlert(phUnsupportedConfiguration);
  72.     END.
  73.